home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / E-Education / (e)d2.d64 / snail.c64.boot (.txt) < prev    next >
Commodore BASIC  |  2008-11-26  |  867b  |  30 lines
  1. 100 REM *** SNAIL BOOT ***
  2. 105 PRINT"":POKE53280,12:POKE53281,12
  3. 110 POKE 775,200:POKE808,225:GOSUB500
  4. 119 PRINT"[147]                        "CHR$(142)
  5. 120 PRINT"             SNAIL C.64 "
  6. 122 PRINT"                        "
  7. 130 PRINT"   DO YOU WISH TO SEE INSTRUCTIONS"
  8. 140 PRINT"            FOR MY WORLD?"
  9. 150 GETZ$:IFZ$=""THEN150
  10. 160 IFZ$="Y"THEN180
  11. 170 GOTO 220
  12. 180 PRINT"[144][147]          LOADING INSTRUCTIONS[152]"
  13. 190 PRINT"LOAD"CHR$(34)"SNAIL.C64.INST"CHR$(34)",8"
  14. 200 PRINT"RUN":PRINT"[145][145][145][145][145][145][145][145][145]"
  15. 210 POKE631,13:POKE632,13:POKE198,2:END
  16. 220 PRINT"[144][147]             LOADING SNAIL[152]"
  17. 230 PRINT"LOAD"CHR$(34)"SNAIL.C64"CHR$(34)",8"
  18. 240 PRINT"RUN":PRINT"[145][145][145][145][145][145][145][145][145]"
  19. 250 POKE631,13:POKE632,13:POKE198,2:END
  20. 500 PRINT"[147]":POKE53281,12:PRINTCHR$(14)
  21. 510 PRINTTAB(14)"[164][164][164][164][164][164][164][164][164][164][164]"
  22. 520 PRINTTAB(14)" [211]NAIL [195]64 "
  23. 530 PRINTTAB(9)"[151][198]REE [198]OR [196]ISTRIBUTION"
  24. 540 PRINTTAB(18)"IN"
  25. 550 PRINTTAB(9)"[195]ANADIAN [211]CHOOLS [207]NLY"
  26. 560 PRINTTAB(15)"[158][195]OURTESY"
  27. 570 PRINTTAB(11)"[195][207][205][205][207][196][207][210][197] [195][193][206][193][196][193][155]"
  28. 580 FORI=6TO16:POKE53280,I:FORDY=1TO450:NEXTDY:NEXTI:FORDY=1TO1500:NEXTDY
  29. 590 RETURN
  30.